home *** CD-ROM | disk | FTP | other *** search
/ Resource Library: Multimedia / Resource Library: Multimedia.iso / hypercrd / xcmds / dvlprstc.hqx / Developer Stack 1.3r / background_14090.txt < prev    next >
Text File  |  1991-04-30  |  9KB  |  415 lines
  1. -- background: 14090 from stack: in.3r
  2. -- bmap block id: 12403
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: Buttons
  6. ----- HyperTalk script -----
  7. on opencard
  8.   put (the number of this card - the number of first card of this background+1) into field "PageNumber"
  9.   put "Buttons" into field "type"
  10. end opencard
  11.  
  12.  
  13.  
  14. -- part 5 (field)
  15. -- low flags: 01
  16. -- high flags: 0002
  17. -- rect: left=461 top=14 right=31 bottom=488
  18. -- title width / last selected line: 0
  19. -- icon id / first selected line: 0 / 0
  20. -- text alignment: 1
  21. -- font id: 3
  22. -- text size: 12
  23. -- style flags: 0
  24. -- line height: 16
  25. -- part name: PageNumber
  26.  
  27.  
  28. -- part 12 (field)
  29. -- low flags: 01
  30. -- high flags: 0004
  31. -- rect: left=2 top=2 right=36 bottom=310
  32. -- title width / last selected line: 0
  33. -- icon id / first selected line: 0 / 0
  34. -- text alignment: 0
  35. -- font id: 3
  36. -- text size: 24
  37. -- style flags: 0
  38. -- line height: 32
  39. -- part name: Name
  40.  
  41.  
  42. -- part 13 (field)
  43. -- low flags: 01
  44. -- high flags: 0004
  45. -- rect: left=307 top=2 right=36 bottom=437
  46. -- title width / last selected line: 0
  47. -- icon id / first selected line: 0 / 0
  48. -- text alignment: 65535
  49. -- font id: 3
  50. -- text size: 24
  51. -- style flags: 0
  52. -- line height: 32
  53. -- part name: type
  54.  
  55.  
  56. -- part 21 (button)
  57. -- low flags: 00
  58. -- high flags: 2004
  59. -- rect: left=3 top=47 right=90 bottom=50
  60. -- title width / last selected line: 0
  61. -- icon id / first selected line: 11645 / 11645
  62. -- text alignment: 1
  63. -- font id: 0
  64. -- text size: 12
  65. -- style flags: 0
  66. -- line height: 16
  67. -- part name: Return
  68. ----- HyperTalk script -----
  69. on mouseUp
  70.   if the optionkey is down then pass mouseup
  71.   visual effect iris close
  72.   go first card
  73. end mouseUp
  74.  
  75.  
  76.  
  77. -- part 22 (button)
  78. -- low flags: 00
  79. -- high flags: 2004
  80. -- rect: left=3 top=88 right=131 bottom=50
  81. -- title width / last selected line: 0
  82. -- icon id / first selected line: 14767 / 14767
  83. -- text alignment: 1
  84. -- font id: 0
  85. -- text size: 12
  86. -- style flags: 0
  87. -- line height: 16
  88. -- part name: About...
  89. ----- HyperTalk script -----
  90. on mouseUp
  91.   if the optionkey is down then pass mouseup
  92.  
  93.   visual iris open to gray
  94.   visual iris close to black
  95.   visual iris open to gray
  96.   visual iris close
  97.   go background information
  98. end mouseUp
  99.  
  100.  
  101.  
  102. -- part 23 (button)
  103. -- low flags: 00
  104. -- high flags: 2004
  105. -- rect: left=3 top=129 right=172 bottom=50
  106. -- title width / last selected line: 0
  107. -- icon id / first selected line: 29114 / 29114
  108. -- text alignment: 1
  109. -- font id: 0
  110. -- text size: 12
  111. -- style flags: 0
  112. -- line height: 16
  113. -- part name: Back
  114. ----- HyperTalk script -----
  115. on mouseUp
  116.   if the optionkey is down then pass mouseup
  117.  
  118.   visual barn door close to black
  119.   visual barn door open
  120.   pop card
  121. end mouseUp
  122.  
  123.  
  124.  
  125. -- part 24 (button)
  126. -- low flags: 00
  127. -- high flags: 2004
  128. -- rect: left=3 top=170 right=213 bottom=50
  129. -- title width / last selected line: 0
  130. -- icon id / first selected line: 1011 / 1011
  131. -- text alignment: 1
  132. -- font id: 0
  133. -- text size: 12
  134. -- style flags: 0
  135. -- line height: 16
  136. -- part name: Home
  137. ----- HyperTalk script -----
  138. on mouseUp
  139.   if the optionkey is down then pass mouseup
  140.   visual dissolve to black
  141.   visual dissolve
  142.   go first card of home
  143. end mouseUp
  144.  
  145.  
  146.  
  147. -- part 25 (button)
  148. -- low flags: 00
  149. -- high flags: 2004
  150. -- rect: left=3 top=211 right=254 bottom=50
  151. -- title width / last selected line: 0
  152. -- icon id / first selected line: 1000 / 1000
  153. -- text alignment: 1
  154. -- font id: 0
  155. -- text size: 12
  156. -- style flags: 0
  157. -- line height: 16
  158. -- part name: Open Stack
  159. ----- HyperTalk script -----
  160. on mouseUp
  161.   if the optionkey is down then pass mouseup
  162.   put "Please select a stack to open..."
  163.   domenu "open stack..."
  164.   hide message
  165. end mouseUp
  166.  
  167.  
  168.  
  169. -- part 26 (button)
  170. -- low flags: 00
  171. -- high flags: 2004
  172. -- rect: left=3 top=252 right=295 bottom=50
  173. -- title width / last selected line: 0
  174. -- icon id / first selected line: 17343 / 17343
  175. -- text alignment: 1
  176. -- font id: 0
  177. -- text size: 12
  178. -- style flags: 0
  179. -- line height: 16
  180. -- part name: Launch Application
  181. ----- HyperTalk script -----
  182. on mouseUp
  183.   if the optionkey is down then pass mouseup
  184.   visual venetian blinds to gray
  185.   visual venetian blinds to black
  186.   visual venetian blinds to gray
  187.   visual venetian blinds
  188.   go to background "Mini Hyperstation"
  189. end mouseUp
  190.  
  191.  
  192.  
  193. -- part 27 (button)
  194. -- low flags: 00
  195. -- high flags: 2004
  196. -- rect: left=3 top=293 right=336 bottom=50
  197. -- title width / last selected line: 0
  198. -- icon id / first selected line: 21786 / 21786
  199. -- text alignment: 1
  200. -- font id: 0
  201. -- text size: 12
  202. -- style flags: 0
  203. -- line height: 16
  204. -- part name: Menus Off
  205. ----- HyperTalk script -----
  206. on mouseUp
  207.   if the optionkey is down then pass mouseup
  208.  
  209.   if menubar("┬⌐1988SDrazga") then hide menubar else show menubar
  210. end mouseUp
  211.  
  212.  
  213.  
  214. -- part 28 (button)
  215. -- low flags: 00
  216. -- high flags: A004
  217. -- rect: left=61 top=292 right=341 bottom=119
  218. -- title width / last selected line: 0
  219. -- icon id / first selected line: 2 / 2
  220. -- text alignment: 1
  221. -- font id: 0
  222. -- text size: 12
  223. -- style flags: 0
  224. -- line height: 16
  225. -- part name: XFCNs...
  226. ----- HyperTalk script -----
  227. on mouseUp
  228.   if the optionkey is down then pass mouseup
  229.  
  230.   controlButton "XFCNs"
  231.  
  232. end mouseUp
  233.  
  234.  
  235.  
  236. -- part 29 (button)
  237. -- low flags: 00
  238. -- high flags: A004
  239. -- rect: left=124 top=292 right=341 bottom=182
  240. -- title width / last selected line: 0
  241. -- icon id / first selected line: 2 / 2
  242. -- text alignment: 1
  243. -- font id: 0
  244. -- text size: 12
  245. -- style flags: 0
  246. -- line height: 16
  247. -- part name: XCMDS...
  248. ----- HyperTalk script -----
  249. on mouseUp
  250.   if the optionkey is down then pass mouseup
  251.  
  252.   controlButton "XCMDs"
  253.  
  254. end mouseUp
  255.  
  256.  
  257.  
  258. -- part 30 (button)
  259. -- low flags: 00
  260. -- high flags: A004
  261. -- rect: left=188 top=292 right=341 bottom=246
  262. -- title width / last selected line: 0
  263. -- icon id / first selected line: 29007 / 29007
  264. -- text alignment: 1
  265. -- font id: 0
  266. -- text size: 12
  267. -- style flags: 0
  268. -- line height: 16
  269. -- part name: Functions...
  270. ----- HyperTalk script -----
  271. on mouseUp
  272.   if the optionkey is down then pass mouseup
  273.  
  274.   controlButton "Functions"
  275.  
  276. end mouseUp
  277.  
  278.  
  279.  
  280. -- part 31 (button)
  281. -- low flags: 00
  282. -- high flags: A004
  283. -- rect: left=252 top=292 right=341 bottom=310
  284. -- title width / last selected line: 0
  285. -- icon id / first selected line: 1060 / 1060
  286. -- text alignment: 1
  287. -- font id: 0
  288. -- text size: 12
  289. -- style flags: 0
  290. -- line height: 16
  291. -- part name: Scripts...
  292. ----- HyperTalk script -----
  293. on mouseUp
  294.   if the optionkey is down then pass mouseup
  295.  
  296.   controlButton "Scripts"
  297.  
  298. end mouseUp
  299.  
  300.  
  301.  
  302. -- part 32 (button)
  303. -- low flags: 00
  304. -- high flags: A004
  305. -- rect: left=317 top=292 right=341 bottom=375
  306. -- title width / last selected line: 0
  307. -- icon id / first selected line: 27056 / 27056
  308. -- text alignment: 1
  309. -- font id: 0
  310. -- text size: 12
  311. -- style flags: 0
  312. -- line height: 16
  313. -- part name: Buttons...
  314. ----- HyperTalk script -----
  315. on mouseUp
  316.   if the optionkey is down then pass mouseup
  317.   controlButton "Buttons"
  318. end mouseUp
  319.  
  320.  
  321.  
  322. -- part 33 (button)
  323. -- low flags: 00
  324. -- high flags: A004
  325. -- rect: left=381 top=292 right=341 bottom=439
  326. -- title width / last selected line: 0
  327. -- icon id / first selected line: 22999 / 22999
  328. -- text alignment: 1
  329. -- font id: 0
  330. -- text size: 12
  331. -- style flags: 0
  332. -- line height: 16
  333. -- part name: Quick Ref...
  334. ----- HyperTalk script -----
  335. on mouseUp
  336.   if the optionkey is down then pass mouseup
  337.   controlButton "Quick Ref"
  338. end mouseUp
  339.  
  340.  
  341.  
  342. -- part 34 (button)
  343. -- low flags: 00
  344. -- high flags: A004
  345. -- rect: left=446 top=292 right=341 bottom=504
  346. -- title width / last selected line: 0
  347. -- icon id / first selected line: 11645 / 11645
  348. -- text alignment: 1
  349. -- font id: 0
  350. -- text size: 12
  351. -- style flags: 0
  352. -- line height: 16
  353. -- part name: Full Index...
  354. ----- HyperTalk script -----
  355. on mouseUp
  356.   if the optionkey is down then pass mouseup
  357.   controlbutton index
  358. end mouseUp
  359.  
  360.  
  361.  
  362.  
  363. -- part 35 (button)
  364. -- low flags: 00
  365. -- high flags: 2000
  366. -- rect: left=437 top=11 right=33 bottom=459
  367. -- title width / last selected line: 0
  368. -- icon id / first selected line: 1014 / 1014
  369. -- text alignment: 1
  370. -- font id: 0
  371. -- text size: 12
  372. -- style flags: 0
  373. -- line height: 16
  374. -- part name: Prev
  375. ----- HyperTalk script -----
  376. on mousestilldown
  377.   global scrolling
  378.   put true into scrolling
  379.   goPrev
  380. end mousestilldown
  381.  
  382. on mouseup
  383.   global scrolling
  384.   if not scrolling then goPrev
  385.   put false into scrolling
  386. end mouseup
  387.  
  388.  
  389.  
  390. -- part 36 (button)
  391. -- low flags: 00
  392. -- high flags: 2000
  393. -- rect: left=488 top=11 right=33 bottom=510
  394. -- title width / last selected line: 0
  395. -- icon id / first selected line: 1013 / 1013
  396. -- text alignment: 1
  397. -- font id: 0
  398. -- text size: 12
  399. -- style flags: 0
  400. -- line height: 16
  401. -- part name: Next
  402. ----- HyperTalk script -----
  403. on mousestilldown
  404.   global scrolling
  405.   put true into scrolling
  406.   goNext
  407. end mousestilldown
  408.  
  409. on mouseup
  410.   global scrolling
  411.   if not scrolling then goNext
  412.   put false into scrolling
  413. end mouseup
  414.  
  415.